home *** CD-ROM | disk | FTP | other *** search
/ Internet 53 / INTERNET53.iso / pc / software / windows / building / ace expert / ae301.exe / %MAINDIR% / EScripts / jscript / Ban4.scr < prev    next >
Encoding:
Text File  |  1999-02-23  |  509 b   |  19 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var posBan4=0, ban4, delayBan4, msgBan4;
  4. function banniere4(delay) {
  5.   delayBan4 = delay;
  6.   if (posBan4 >= msgBan4.length)
  7.     posBan4 = 0;
  8.   else if (posBan4 == 0) {
  9.     msgBan4 = '        ' + msgBan4;
  10.     while (msgBan4.length < 128)
  11.       msgBan4 += '        ' + msgBan4;
  12.   }
  13.   window.status = msgBan4.substring(posBan4,posBan4+msgBan4.length);
  14.   posBan4++;
  15.   ban4 = setTimeout("banniere4(delayBan4)",delay);
  16. }
  17. // end script -->
  18. </SCRIPT>
  19.